10 FORK=0TO44:READA:POKE820+K,A:NEXT
30 REM  ^ DATAS EINLESEN
50 INPUT"BILDNAME ";NA$:SYS(57812)"H"+NA$,8,0:SYS820
70 REM  ^ HIRES LADEN
90 CI=PEEK(56576):VI=PEEK(53272)
110 REM ^ REGISTER SICHERN
130 SYS(57812)"F"+NA$,8,0:SYS829
150 REM ^ FARBE LADEN
170 POKE53265,11:POKE53280,0:POKE53281,PEEK(51152)
190 REM ^ BILDSCHIRMFARBE SETZEN
210 POKE56576,148:POKE53272,9
230 REM ^ NEUE VIC BANK ANSPRECHEN
250 POKE53270,216:SYS838:POKE53265,59
270 REM ^ FARBE SETZEN,BILD EINSCHALTEN
290 GETR$:IFR$=""ANDPEEK(653)=0THEN290
310 REM ^ AUF REAKTION WARTEN
330 POKE53265,11:POKE56576,CI:POKE53272,VI
340 POKE53270,200:POKE53281,0:PRINT"[147]";:POKE53265,27
360 REM ^ AUSSCHALTEN DES BILDES
380 DATA160,224,162,0,169,0,76,213,255,160,192,162,0,162,0,76,213,255,160,195
390 DATA162,232,132,96,134,95,160,199,162,208,132,91,134,90,160,219,162,232
400 DATA132,89,134,88,76,191,163